home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1997
/
HAM Radio 1997.iso
/
vcls
/
frmset2
/
page3.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-04-08
|
1KB
|
76 lines
unit Page3;
interface
uses
Classes, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
type
TfPage3 = class(TForm)
Label1: TLabel;
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormHide(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fPage3: TfPage3;
implementation
{$R *.DFM}
procedure TfPage3.FormCreate(Sender: TObject);
begin
showmessage('Page 3: Create');
end;
procedure TfPage3.FormActivate(Sender: TObject);
begin
showmessage('Page 3: Activate');
end;
procedure TfPage3.FormShow(Sender: TObject);
begin
showmessage('Page 3: Show');
end;
procedure TfPage3.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
showmessage('Page 3: Close Query');
end;
procedure TfPage3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
showmessage('Page 3: Close');
end;
procedure TfPage3.FormHide(Sender: TObject);
begin
showmessage('Page 3: Hide');
end;
procedure TfPage3.FormDestroy(Sender: TObject);
begin
showmessage('Page 3: Destroy');
end;
end.